home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / ExecTests / tinteger.m < prev    next >
Text File  |  1990-08-31  |  3KB  |  65 lines
  1. import runtest from "RunTest"
  2.  
  3. const tinteger <- object tinteger
  4.   const myTest == runtest.create[stdin, stdout, "tinteger"]
  5.   function null [i : Integer] -> [j : Integer]
  6.     j <- i
  7.   end null
  8.   process
  9.     % each test looks like b <- b and <boolean expression>
  10.     var i, j : Integer
  11.     i <- 0
  12.     myTest.check[i = 0, "i = 0"]
  13.     myTest.check[i == 0, "i == 0"]
  14.     i <- 4
  15.     j <- 7
  16.     myTest.check[i = 4, "i = 4"]
  17.     myTest.check[i == 4, "i == 4"]
  18.     myTest.check[i + j = 11, "i + j = 11"]
  19.     myTest.check[j + i = 11, "j + i = 11"]
  20.     myTest.check[i - j = ~3, "i - j = ~3"]
  21.     myTest.check[j - i = 3, "j - i = 3"]
  22.     myTest.check[i * j = 28, "i * j = 28"]
  23.     myTest.check[j * i = 28, "j * i = 28"]
  24.     myTest.check[j * 0 = 0, "j * 0 = 0"]
  25.     myTest.check[j * ~1 = ~7, "j * ~1 = ~7"]
  26.     myTest.check[i / j = 0, "i / j = 0"]
  27.     myTest.check[j / i = 1, "j / i = 1"]
  28.     myTest.check[i / 2 = 2, "i / 2 = 2"]
  29.     myTest.check[j / 3 = 2, "j / 3 = 2"]
  30.     myTest.check[~5 / 2 = ~2, "~5 / 2 = ~2"]
  31.     myTest.check[i # j = 4, "i # j = 4"]
  32.     myTest.check[j # i = 3, "j # i = 3"]
  33.     myTest.check[~5 # 2 = ~1, "~5 # 2 = ~1"]
  34.  
  35.     myTest.check[self.null[i] = 4, "self.null[i] = 4"]
  36.     myTest.check[self.null[i] == 4, "self.null[i] == 4"]
  37.     myTest.check[self.null[i + j] = 11, "self.null[i + j] = 11"]
  38.     myTest.check[self.null[j + i] = 11, "self.null[j + i] = 11"]
  39.     myTest.check[self.null[i - j] = ~3, "self.null[i - j] = ~3"]
  40.     myTest.check[self.null[j - i] = 3, "self.null[j - i] = 3"]
  41.     myTest.check[self.null[i * j] = 28, "self.null[i * j] = 28"]
  42.     myTest.check[self.null[j * i] = 28, "self.null[j * i] = 28"]
  43.     myTest.check[self.null[j * 0] = 0, "self.null[j * 0] = 0"]
  44.     myTest.check[self.null[j * ~1] = ~7, "self.null[j * ~1] = ~7"]
  45.     myTest.check[self.null[i / j] = 0, "self.null[i / j] = 0"]
  46.     myTest.check[self.null[j / i] = 1, "self.null[j / i] = 1"]
  47.     myTest.check[self.null[i / 2] = 2, "self.null[i / 2] = 2"]
  48.     myTest.check[self.null[j / 3] = 2, "self.null[j / 3] = 2"]
  49.     myTest.check[self.null[~5 / 2] = ~2, "self.null[~5 / 2] = ~2"]
  50.     myTest.check[self.null[i # j] = 4, "self.null[i # j] = 4"]
  51.     myTest.check[self.null[j # i] = 3, "self.null[j # i] = 3"]
  52.     myTest.check[self.null[~5 # 2] = ~1, "self.null[~5 # 2] = ~1"]
  53.  
  54.     myTest.check[j > i, "j > i"]
  55.     myTest.check[i < j, "i < j"]
  56.     myTest.check[j >= i, "j >= i"]
  57.     myTest.check[i <= j, "i <= j"]
  58.     myTest.check[i != j, "i != j"]
  59.     myTest.check[i.asString = "4", "i.asString = \"4\""]
  60.     myTest.check[(~1).asString = "-1", "(~1).asString = \"-1\""]
  61.     myTest.check[i.asReal = 4.0, "i.asReal = 4.0"]
  62.     myTest.done
  63.   end process
  64. end tinteger
  65.